home *** CD-ROM | disk | FTP | other *** search
/ SVM Mac CD-ROM 59 / SVM Mac CD-ROM - No 59.iso / demo camisole / Quai.Dxr / 00622_initialisation du jeu de l'intrus.ls < prev    next >
Encoding:
Text File  |  1999-04-06  |  557 b   |  16 lines
  1. on enterFrame
  2.   global gNbErreurs, gDecalageSprite, gListeDechets, gNumDechet, gNumIntrus
  3.   set vPoubelle to count(gListeDechets)
  4.   repeat with vElement = 1 to vPoubelle
  5.     puppetSprite(gDecalageSprite + vElement, 1)
  6.     if getAt(gListeDechets, vElement) = 30 then
  7.       set the castNum of sprite (gDecalageSprite + vElement) to gNumIntrus
  8.       next repeat
  9.     end if
  10.     set vDechet to getAt(gListeDechets, vElement)
  11.     set the castNum of sprite (gDecalageSprite + vElement) to vDechet + gNumDechet
  12.   end repeat
  13.   set gNbErreurs to 0
  14.   CursDoigt(1)
  15. end
  16.